/********************************************************************
Name: Table A11: Effect of Dem Sheriff on Detainer Compliance Rate
Author: Dan Thompson
Date: August 2019
Notes:
********************************************************************/

* Set the working directory 
gl root = "$sanctuary_root"
gl root = "YOUR_WORKING_DIRECTORY"

* Bring in the RD analysis data
use "$root/data/rd analysis data.dta", clear
egen year_by_pre_year_id = group(year pre_year)

* Column 1
reg share_detained_sheriff treat rv treat_rv ///
	if abs(rv)<10, vce(clust election_id)
reg share_detained_sheriff treat rv treat_rv ///
	if abs(rv)<10 & large==1, vce(clust election_id)

* Column 2
reg share_detained_sheriff treat rv rv2 rv3 ///
	if abs(rv)<25, vce(clust election_id)
reg share_detained_sheriff treat rv rv2 rv3 ///
	if abs(rv)<25 & large==1, vce(clust election_id)

* Column 3
reg share_detained_sheriff treat rv rv2 rv3 treat_rv treat_rv2 treat_rv3 ///
	if abs(rv)<25, vce(clust election_id)
reg share_detained_sheriff treat rv rv2 rv3 treat_rv treat_rv2 treat_rv3 ///
	if abs(rv)<25 & large==1, vce(clust election_id)

* Column 4
reg share_detained_sheriff treat rv rv2 rv3 rv4 rv5 ///
	if abs(rv)<25, vce(clust election_id)
reg share_detained_sheriff treat rv rv2 rv3 rv4 rv5 ///
	if abs(rv)<25 & large==1, vce(clust election_id)

* Column 5
reg share_detained_sheriff treat rv treat_rv ///
	i.year_by_pre_year_id##c.pre_share_detained_sheriff ///
	if abs(rv)<10, vce(clust election_id)
reg share_detained_sheriff treat rv treat_rv ///
	i.year_by_pre_year_id##c.pre_share_detained_sheriff ///
	if abs(rv)<10 & large==1, vce(clust election_id)

* Column 6
reg share_detained_sheriff treat rv rv2 rv3 ///
	i.year_by_pre_year_id##c.pre_share_detained_sheriff ///
	if abs(rv)<25, vce(clust election_id)
reg share_detained_sheriff treat rv rv2 rv3 ///
	i.year_by_pre_year_id##c.pre_share_detained_sheriff ///
	if abs(rv)<25 & large==1, vce(clust election_id)

* Column 7
reg share_detained_sheriff treat rv rv2 rv3 treat_rv treat_rv2 treat_rv3 ///
	i.year_by_pre_year_id##c.pre_share_detained_sheriff ///
	if abs(rv)<25, vce(clust election_id)
reg share_detained_sheriff treat rv rv2 rv3 treat_rv treat_rv2 treat_rv3 ///
	i.year_by_pre_year_id##c.pre_share_detained_sheriff ///
	if abs(rv)<25 & large==1, vce(clust election_id)

* Column 8
reg share_detained_sheriff treat rv rv2 rv3 rv4 rv5 ///
	i.year_by_pre_year_id##c.pre_share_detained_sheriff ///
	if abs(rv)<25, vce(clust election_id)
reg share_detained_sheriff treat rv rv2 rv3 rv4 rv5 ///
	i.year_by_pre_year_id##c.pre_share_detained_sheriff ///
	if abs(rv)<25 & large==1, vce(clust election_id)

* Column 9
rdrobust share_detained_sheriff rv, vce(cluster election_id)
unique election_id if abs(rv)<=e(h_l) & share_detained_sheriff!=.
rdrobust share_detained_sheriff rv if large==1, vce(cluster election_id)
unique election_id if abs(rv)<=e(h_l) & share_detained_sheriff!=. & large==1

